Imports EXAT_Sec
Partial Class Content_ChangPass
    Inherits System.Web.UI.Page
    Dim GOj_sec As New EXAT_Sec.callSecurityServices_EXAT
    Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        Dim old_pass As String = Trim(Me.txtOldPass.Text)
        Dim new_pass As String = Trim(Me.txtNewPass.Text)
        Dim renew_pass As String = Trim(Me.txtReNewPass.Text)

        With GOj_sec
            .call_ChangePassword(Session("user_id"), old_pass, new_pass, renew_pass, Application("SYSID"))
            Me.lblEvent.Text = .ResultText
            If .ResultCode = 0 Then

            End If
        End With
    End Sub
End Class
